home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 86xx / 8602.d64 / schreiberl. 802 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  9KB  |  241 lines
  1. 100 REM -- SCHREIBERLING
  2. 101 REM -- GEAENDERT FUER
  3. 102 REM -- DRUCKER MPS 802
  4. 103 :
  5. 145 POKE53281,14:POKE53280,14:POKE646,6
  6. 150 PRINT"[147]","** BITTE WARTEN **"
  7. 160 DIMA1$(72),A2$(72),A3$(72)
  8. 162 FORI=1TO16:Q$=Q$+CHR$(0):NEXTI
  9. 163 FORI=1TO23:O$=O$+CHR$(0):NEXTI
  10. 164 FORI=1TO8:Q1$=Q1$+CHR$(0):NEXTI
  11. 165 FORI=1TO80:L$=L$+" ":NEXTI
  12. 170 :
  13. 171 REM -- ZEILENVORSCHUB EINSTELLEN --
  14. 172 :
  15. 175 OPEN6,4,6:PRINT#6,CHR$(21):CLOSE6
  16. 180 :
  17. 200 :
  18. 220 RESTORE
  19. 230 FORI=1TO72
  20. 240 FORJ=1TO3
  21. 245 :  READX
  22. 250 :  IFX=-1THEN280
  23. 260 :  IFJ=1THENA1$(I)=A1$(I)+CHR$(X)
  24. 265 :  IFJ=2THENA2$(I)=A2$(I)+CHR$(X)
  25. 267 :  IFJ=3THENA3$(I)=A3$(I)+CHR$(X)
  26. 270 :GOTO245
  27. 280 NEXTJ
  28. 282 IFLEN(A3$(I))=0THEN A3$(I)=LEFT$(O$,LEN(A1$(I)))
  29. 285 NEXTI
  30. 300 :
  31. 320 PRINTCHR$(147);CHR$(14);CHR$(18);".....EINE.ZEILE.EINGEBEN:.............";
  32. 325 PRINTCHR$(146)
  33. 330 GETT$:PRINTT$;
  34. 340 IFT$=CHR$(13)THEN410
  35. 350 GOTO330
  36. 400 :
  37. 410 OPEN1,4:OPEN5,4,5
  38. 411 Y=50:P=0
  39. 414 REM -- ZEILE LOESCHEN --
  40. 415 REM -- ZEILE LOESCHEN --
  41. 417 REM -- ZEILE LOESCHEN --
  42. 418 FORJ=1TO3
  43. 420 : HH$="":H=0
  44. 421 : REM -- ZEILE LOESCHEN --
  45. 422 : FORI=1064+PTO1064+Y
  46. 425 :   W=PEEK(I)
  47. 430 :   IFW=32ORW=96THENH$=Q1$:GOTO650
  48. 440 :   IFW=63THENF=-17:GOTO600
  49. 450 :   IFW=40ORW=41THENF=4:GOTO600
  50. 460 :   IFW=33THENF=10:GOTO600
  51. 470 :   IFW>64ANDW<91THENF=-64:GOTO600
  52. 475 :   IFW>0ANDW<27THENF=46:GOTO600
  53. 480 :   IFW>43ANDW<60THENF=-17:GOTO600
  54. 550 : NEXTI:GOSUB750:IFJ<3THENPRINT#1
  55. 560 NEXTJ
  56. 570 PRINT#1:CLOSE1:CLOSE5:GOTO320
  57. 590 :
  58. 591 REM -- DEFINITION DER DRUCKZEILE --
  59. 592 :
  60. 600 IFJ=1THENH$=A1$(W+F)
  61. 605 IFJ=2THENH$=A2$(W+F)
  62. 610 IFJ=3THENH$=A3$(W+F)
  63. 650 HH$=HH$+H$
  64. 660 IFLEN(HH$)>200THEN700
  65. 665 GOTO550
  66. 690 :
  67. 691 REM --DRUCKROUTINE 2 --
  68. 692 :
  69. 700 FORK=1TO200STEP8
  70. 705 : IFMID$(HH$,K,8)=Q1$THEN725
  71. 710 : PRINT#5,MID$(HH$,K,8)
  72. 715 : PRINT#1,LEFT$(L$,H)CHR$(254)CHR$(141);
  73. 725 : H=H+1
  74. 730 NEXTK
  75. 735 HH$=RIGHT$(HH$,(LEN(HH$)-200))
  76. 740 GOTO550
  77. 745 :
  78. 746 REM --DRUCKROUTINE 1 --
  79. 747 :
  80. 750 HH$=HH$+Q1$
  81. 751 FORK=1TOLEN(HH$)-8 STEP8
  82. 755 : IFMID$(HH$,K,8)=Q1$THEN765
  83. 760 : PRINT#5,MID$(HH$,K,8)
  84. 762 : PRINT#1,LEFT$(L$,H)CHR$(254)CHR$(141);
  85. 765 : H=H+1
  86. 770 NEXTK
  87. 775 RETURN
  88. 800 :
  89. 900 REM -- ZEILE 900-940 LOESCHEN --
  90. 1000 :
  91. 1010 DATA0,32,65,198,200,240,252,127,31,1,0,0,0,0,0,0,-1
  92. 1020 DATA0,62,255,3,3,2,4,200,248,254,31,3,1,2,4,0,-1,-1
  93. 1030 DATA0,128,255,255,255,131,131,131,131,131,131,68,124,56,0,-1
  94. 1040 DATA0,1,255,255,255,1,1,1,1,1,1,130,254,124,0,-1,-1
  95. 1050 DATA0,7,31,63,112,192,128,128,128,128,128,128,64,120,56,0,-1
  96. 1060 DATA0,224,248,252,14,3,1,1,1,1,1,1,2,30,28,0,-1,-1
  97. 1070 DATA0,128,255,255,255,128,128,128,128,128,64,112,63,31,15,0,-1
  98. 1080 DATA0,1,255,255,255,1,1,1,1,1,2,14,252,248,240,0,-1,-1
  99. 1090 DATA0,7,31,63,114,194,130,130,131,131,131,131,66,112,48,0,-1
  100. 1100 DATA0,224,248,252,14,3,1,1,1,1,129,1,2,14,12,0,-1,-1
  101. 1110 DATA0,128,255,255,255,66,66,130,130,131,131,131,131,98,96,0,-1
  102. 1120 DATA0,0,255,255,255,0,0,0,0,0,0,128,0,0,0,0,-1
  103. 1130 DATA4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
  104. 1140 DATA0,7,15,63,112,192,128,128,128,128,194,99,99,3,2,0,-1
  105. 1150 DATA0,248,252,254,7,3,1,1,2,4,8,255,255,255,0,0,-1
  106. 1160 DATA0,0,0,0,0,0,0,0,0,4,8,248,240,192,0,0,-1
  107. 1170 DATA0,128,255,255,255,2,4,8,8,16,16,24,31,15,3,0,-1
  108. 1180 DATA0,0,255,255,255,0,0,0,0,0,3,15,255,249,225,0,-1,-1
  109. 1190 DATA0,128,255,255,255,0,0,-1
  110. 1200 DATA0,0,255,255,255,1,0,-1,-1
  111. 1210 DATA0,0,128,255,255,255,0,-1
  112. 1220 DATA0,0,0,255,255,255,0,-1
  113. 1230 DATA0,4,8,248,240,192,0,-1
  114. 1240 DATA0,128,255,255,255,3,3,6,4,12,56,240,224,0,0,0,-1
  115. 1250 DATA0,1,255,255,255,0,192,240,124,30,3,1,1,1,6,0,-1,-1
  116. 1260 DATA0,128,255,255,255,0,0,0,0,0,0,0,0,0,0,0,-1
  117. 1270 DATA0,1,255,255,255,1,1,1,1,1,1,1,1,3,7,0,-1,-1
  118. 1280 DATA0,7,31,56,96,192,128,128,128,128,127,63,127,128,128,128,128
  119. 1290 DATA192,96,56,31,7,0,-1
  120. 1300 DATA0,192,248,62,7,1,1,0,0,0,255,255,255,0,0,0,1,1,7,62,248,192,0,-1,-1
  121. 1310 DATA0,128,255,255,255,63,3,0,0,0,0,128,255,255,0,0,-1
  122. 1320 DATA0,0,255,255,255,0,224,240,56,12,6,2,255,255,1,0,-1
  123. 1330 DATA4,8,248,240,192,0,0,0,0,0,0,0,0,0,0,0,-1
  124. 1340 DATA0,7,31,63,96,64,128,128,128,128,64,96,63,31,7,0,-1
  125. 1350 DATA0,224,248,252,6,2,1,1,1,1,2,6,252,248,224,0,-1,-1
  126. 1360 DATA0,128,255,255,255,48,112,192,128,128,128,192,96,63,31,0,-1
  127. 1370 DATA0,0,255,255,255,12,14,3,1,1,1,3,6,252,248,0,-1
  128. 1380 DATA0,0,252,252,252,4,0,0,0,0,0,0,0,0,0,0,-1
  129. 1390 DATA0,15,63,127,192,128,128,128,128,128,64,96,63,63,63,64,0,-1
  130. 1400 DATA0,240,252,254,3,1,1,1,1,1,14,12,255,255,255,0,0,-1
  131. 1410 DATA0,0,0,0,0,0,0,0,0,0,0,4,252,248,248,0,0,-1
  132. 1420 DATA0,128,255,255,255,129,129,129,129,129,195,126,60,0,0,0,-1
  133. 1430 DATA0,1,255,255,255,0,128,192,96,56,30,7,3,3,2,0,-1,-1
  134. 1440 DATA0,30,63,127,199,131,131,131,131,131,131,131,195,113,48,0,-1
  135. 1450 DATA0,28,30,3,129,129,129,129,129,129,131,199,254,252,248,0,-1,-1
  136. 1460 DATA0,32,96,192,128,128,255,255,255,128,128,128,128,128,0,-1
  137. 1470 DATA0,0,0,0,0,0,255,255,255,1,0,0,0,0,0,-1,-1
  138. 1480 DATA0,7,159,255,128,128,0,0,0,0,128,255,255,255,0,0,-1
  139. 1490 DATA0,248,252,254,1,1,1,1,2,4,8,255,255,255,1,0,-1,-1
  140. 1500 DATA0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
  141. 1510 DATA0,0,0,0,0,0,224,248,255,15,48,192,0,0,0,0,-1,-1
  142. 1520 DATA0,3,15,191,192,128,0,0,3,15,191,192,128,0,0,0,0,128,255,255
  143. 1530 DATA255,0,0,-1
  144. 1540 DATA0,248,254,254,3,1,1,1,250,254,254,3,1,1,1,2,2,4,255,255,255,1,0,-1,-1
  145. 1550 DATA0,32,64,192,240,252,63,15,3,4,8,16,224,192,0,0,-1
  146. 1560 DATA0,7,11,16,32,64,128,192,240,252,62,15,3,1,6,0,-1,-1
  147. 1570 DATA0,96,192,224,252,127,31,3,0,0,0,0,7,216,224,0,-1
  148. 1580 DATA0,0,0,0,0,0,224,248,255,14,48,192,0,0,0,0,-1
  149. 1590 DATA0,0,0,0,12,28,24,96,128,0,0,0,0,0,0,0,-1
  150. 1600 DATA0,128,192,192,224,128,128,129,131,143,158,188,240,224,192,0,-1
  151. 1610 DATA0,3,7,15,29,121,241,225,129,1,1,7,3,3,1,0,-1,-1
  152. 1614 DATA0,0,0,0,0,-1,0,0,3,3,0,-1,0,48,192,0,0,-1
  153. 1615 DATA0,0,1,1,1,1,1,1,1,1,1,1,0,0,-1
  154. 1616 DATA0,0,128,128,128,128,128,128,128,128,128,128,0,0,-1,-1
  155. 1617 DATA0,0,0,0,0,0,-1,0,0,3,3,0,0,-1,-1
  156. 1618 DATA0,0,0,0,0,0,3,12,48,192,0,0,-1
  157. 1619 DATA0,0,3,12,48,192,0,0,0,0,0,0,-1,-1
  158. 1620 DATA0,0,3,12,16,32,32,32,48,56,15,0,0,-1
  159. 1630 DATA0,240,252,14,3,1,1,1,2,12,240,0,0,-1,-1
  160. 1640 DATA0,16,31,63,63,0,0,-1
  161. 1650 DATA0,0,255,255,254,2,0,-1,-1
  162. 1660 DATA0,8,16,32,32,32,48,31,15,0,0,0,0,0,-1
  163. 1670 DATA0,1,3,7,15,29,249,225,193,1,1,3,2,0,-1
  164. 1680 DATA0,0,0,128,128,128,128,128,128,128,0,0,0,0,-1
  165. 1690 DATA0,16,32,33,51,62,28,0,0,-1
  166. 1700 DATA0,64,128,128,128,255,254,56,0,-1
  167. 1710 DATA0,16,32,64,128,128,0,0,0,-1
  168. 1720 DATA0,0,0,0,1,2,4,15,31,63,0,0,0,0,-1
  169. 1730 DATA0,32,96,160,32,32,32,255,255,254,32,32,32,0,-1,-1
  170. 1740 DATA0,1,7,59,51,19,19,19,17,16,0,-1
  171. 1750 DATA0,128,0,0,0,0,131,252,240,0,0,-1
  172. 1760 DATA0,8,16,32,64,128,0,0,0,0,0,-1
  173. 1770 DATA0,3,15,18,36,68,76,140,12,7,3,0,-1
  174. 1780 DATA0,248,254,7,1,1,1,1,1,6,248,0,-1,-1
  175. 1790 DATA0,48,48,24,24,24,17,22,56,32,0,-1
  176. 1800 DATA0,0,1,15,30,112,128,0,0,0,0,-1
  177. 1810 DATA0,48,240,192,0,0,0,0,0,0,0,-1
  178. 1820 DATA0,0,121,135,131,131,133,121,0,0,-1
  179. 1830 DATA0,124,194,129,1,1,129,226,124,0,-1,-1
  180. 1840 DATA0,0,3,4,4,8,8,12,6,7,1,0,-1
  181. 1850 DATA0,248,252,6,3,1,1,2,2,229,254,0,-1
  182. 1860 DATA0,0,0,0,0,8,16,32,64,128,0,0,-1
  183. 1870 DATA0,0,3,3,0,0,-1,0,0,3,3,0,0,-1,-1
  184. 1880 DATA0,0,0,0,0,0,-1,0,0,51,51,0,0,-1,0,48,192,0,0,0,-1
  185. 1910 DATA0,0,127,255,254,0,0,-1,0,0,243,243,0,0,0,-1,-1
  186. 1920 DATA0,31,63,64,128,0,-1,0,248,252,2,1,0,-1,-1
  187. 1930 DATA0,128,64,63,31,0,-1,0,1,2,252,248,0,-1,-1
  188. 1940 DATA0,48,112,192,129,135,252,120,0,-1
  189. 1950 DATA0,0,0,115,243,0,0,0,0,-1,-1
  190. 1960 DATA0,0,1,3,2,2,2,1,0,1,3,2,0,0,-1
  191. 1970 DATA0,252,254,3,1,1,1,1,130,254,255,1,2,0,-1,-1
  192. 1980 DATA0,64,255,255,0,1,2,2,2,2,1,1,0,-1
  193. 1990 DATA0,0,252,254,193,193,1,1,1,2,254,252,0,-1,-1
  194. 2000 DATA0,0,1,3,2,2,2,2,1,1,0,-1,0,252,254,3,1,1,1,1,2,4,0,-1,-1
  195. 2010 DATA0,0,0,1,2,2,2,1,128,255,255,0,0,0,-1
  196. 2020 DATA0,124,254,3,1,1,1,2,132,254,255,1,2,0,-1,-1
  197. 2030 DATA0,0,1,3,2,2,2,2,1,0,0,-1
  198. 2040 DATA0,252,254,35,33,33,33,33,161,98,0,-1,-1
  199. 2050 DATA0,15,63,114,130,131,131,128,96,32,0,-1
  200. 2060 DATA0,255,255,0,0,0,0,0,0,0,0,-1,0,252,252,4,0,0,0,0,0,0,0,-1
  201. 2070 DATA0,0,0,1,2,2,2,1,1,1,1,1,0,-1
  202. 2080 DATA0,124,254,131,1,1,1,130,132,191,127,128,0,-1
  203. 2090 DATA0,56,52,4,4,4,4,8,16,240,224,0,0,-1
  204. 2100 DATA0,128,255,255,1,2,2,2,1,1,0,0,0,0,-1
  205. 2110 DATA0,0,255,255,0,0,0,0,0,254,255,1,2,0,-1,-1
  206. 2120 DATA0,2,51,51,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
  207. 2130 DATA0,2,51,51,0,-1,0,0,255,255,0,-1,4,8,240,224,0,-1
  208. 2140 DATA0,128,255,255,0,0,0,3,3,0,0,0,-1
  209. 2150 DATA0,0,255,255,32,88,76,134,3,1,2,0,-1,-1
  210. 2160 DATA0,128,255,255,0,0,0,-1,0,0,254,255,1,2,0,-1,-1
  211. 2170 DATA0,1,2,3,1,1,2,3,1,1,2,3,1,0,0,0,-1
  212. 2180 DATA0,0,0,255,255,0,0,255,255,0,0,254,255,1,2,0,-1,-1
  213. 2190 DATA0,1,2,3,1,1,2,3,1,0,0,0,-1
  214. 2200 DATA0,0,0,255,255,0,0,254,255,1,2,0,-1,-1
  215. 2210 DATA0,0,1,1,2,2,2,2,3,1,0,0,-1
  216. 2220 DATA0,252,254,3,1,1,1,1,1,254,252,0,-1,-1
  217. 2230 DATA0,1,2,3,1,0,1,2,2,2,3,1,0,0,-1
  218. 2240 DATA0,0,0,255,255,132,2,1,1,1,3,254,252,0,-1
  219. 2250 DATA0,0,0,252,252,4,0,0,0,0,0,0,0,0,-1
  220. 2260 DATA0,0,0,1,2,2,2,1,1,1,1,1,0,-1
  221. 2270 DATA0,124,254,131,1,1,1,130,132,191,127,128,0,-1
  222. 2280 DATA0,0,0,0,0,0,0,0,0,252,252,4,0,-1
  223. 2290 DATA0,1,2,3,1,2,3,1,1,0,-1,0,0,0,255,255,0,0,128,0,0,-1,-1
  224. 2300 DATA0,0,1,3,2,2,2,2,3,1,0,0,-1
  225. 2310 DATA0,198,247,49,49,49,49,49,179,159,12,0,-1,-1
  226. 2320 DATA0,4,12,255,255,4,4,4,0,-1
  227. 2330 DATA0,0,0,254,255,1,2,0,0,-1,-1
  228. 2340 DATA0,2,3,3,0,0,0,2,3,3,0,0,0,-1
  229. 2350 DATA0,0,254,255,1,1,1,2,254,255,1,2,0,-1,-1
  230. 2360 DATA0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
  231. 2370 DATA0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1,-1
  232. 2380 DATA0,2,3,3,0,0,3,3,0,0,3,3,0,-1
  233. 2390 DATA0,0,254,255,1,2,254,255,1,2,254,252,0,-1,-1
  234. 2400 DATA0,2,3,3,2,0,0,0,0,3,2,0,0,-1
  235. 2410 DATA0,1,3,132,232,112,56,92,134,3,1,2,0,-1,-1
  236. 2420 DATA0,1,2,3,3,1,0,0,0,0,0,3,3,0,-1
  237. 2430 DATA0,0,0,0,128,224,120,30,7,12,48,192,0,0,-1
  238. 2440 DATA0,0,0,24,28,12,48,192,0,0,0,0,0,0,-1
  239. 2450 DATA0,3,3,2,2,2,2,2,3,3,2,0,-1
  240. 2460 DATA0,1,3,7,13,57,113,193,129,3,3,0,-1,-1
  241.